Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/iBTC 1,691,577,742 1,409.37 289,007,462 3,383,155,471 2,847.57 2,744,490,407 1,691,577,729.31 136270.6
lp://DOT/LCDOT 343,006,259 448.77 70,481,236 338,846,557 443.26 69,692,369 4,159,701.38 335.1
lp://AUSD/LDOT 3,760,971 12.46 4,605,990 7,520,812 24.96 8,988,775 3,759,841.01 302.9
lp://AUSD/INTR 1,241,338 0.15 1,973,476 2,482,675 0.29 3,167,124 1,241,337.69 100
lp://AUSD/LCDOT 17,700,949 444.65 46,803,268 17,692,119 441.92 46,651,547 8,830.70 0.7
lp://ACA/AUSD 18,187,465 2,790.40 20,802,818 18,190,484 2,838.97 21,034,843 3,019.48 0.2

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,726,502.09 -219.03 -4,173.95 NA NA NA NA NA
lp://KINT/KUSD -1,308,452.88 -202.37 -4,011.48 NA NA NA NA NA
lp://PHA/KUSD -1,078,691.63 -77.19 -1,753.21 NA NA NA NA NA
lp://KUSD/KINT 1,296,126.42 -277.52 -3,568.52 8,748.83 347.46 6,166.35 1,287,377.59 NA
lp://KUSD/KBTC 1,663,833.93 -146.10 -3,868.44 420,088.51 11,566.43 218,706.10 1,243,745.42 NA
lp://KUSD/PHA 1,071,402.08 -208.71 -1,749.85 19,980.14 223.98 16,513.37 1,051,421.94 NA
lp://TAI/taiKSM 0.00 0.00 0.00 7,672.97 575.01 6,620.00 7,672.97 NA
lp://KAR/LKSM 525,395.95 1,739.67 104,252.44 522,589.36 1,733.41 204,002.82 2,806.59 NA
lp://KUSD/LKSM 416,285.51 5,716.95 316,837.07 414,353.77 6,242.40 379,967.47 1,931.74 NA
lp://KSM/LKSM 89,133.88 230.11 37,675.88 88,142.76 228.75 37,836.46 991.12 NA
lp://KUSD/KSM 515,763.16 3,641.24 781,079.38 516,130.80 3,644.57 788,357.50 367.64 NA
lp://KUSD/BNC 55,916.89 274.63 16,972.34 55,563.01 274.63 17,090.44 353.89 NA
lp://KUSD/ARIS2 72,815.17 16,294.94 62,464.21 72,474.21 52,155.27 148,547.07 340.96 NA
lp://KUSD/QTZ 5,824.16 20.66 2,561.64 5,951.19 20.96 4,199.20 127.02 NA
lp://KAR/QTZ 5,472.50 20.55 2,842.02 5,591.04 20.86 3,642.63 118.54 NA
lp://KAR/KUSD 526,452.59 2,578.97 308,763.91 526,560.11 4,552.17 512,371.20 107.52 NA
lp://KSM/ARIS 39.20 0.00 68.34 78.54 4.77 216.44 39.34 NA
lp://KAR/KSM 884,533.41 2,948.88 408,929.94 884,563.44 2,953.27 411,925.08 30.03 NA
lp://KUSD/CSM 30,717.88 452.69 6,023.20 30,737.88 452.69 7,554.03 20.00 NA
lp://KUSD/RMRK 11,461.38 20.40 15,894.75 11,447.32 20.40 15,895.85 14.06 NA
lp://KSM/RMRK 4,304.47 20.37 4,954.33 4,308.33 20.38 7,025.19 3.85 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```